unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages,
  System.SysUtils, System.Variants,
  System.Classes,
  Vcl.Graphics,
  Vcl.Controls,
  Vcl.Forms,
  Vcl.Dialogs,
  GLS.ParticleFX,
  GLS.Scene,
  GLS.Objects,
  GLS.GeomObjects,
  GLS.Coordinates,
  GLS.Cadencer,
  GLS.SceneViewer, GLS.BaseClasses;

type
  TForm1 = class(TForm)
    flame_pfx_man: TGLPolygonPFXManager;
    GLScene1: TGLScene;
    GLSceneViewer1: TGLSceneViewer;
    GLCadencer1: TGLCadencer;
    GLCamera1: TGLCamera;
    GLLightSource1: TGLLightSource;
    GLCylinder1: TGLCylinder;
    GLParticleFXRenderer1: TGLParticleFXRenderer;
    GLPointLightPFXManager1: TGLPointLightPFXManager;
    procedure GLCadencer1Progress(Sender: TObject;
      const deltaTime, newTime: Double);
  private
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.GLCadencer1Progress(Sender: TObject;
  const deltaTime, newTime: Double);
begin
  GLCylinder1.Move(cos(2 * newTime) * deltaTime);
  GLCylinder1.Slide(sin(2 * newTime) * deltaTime * 3);
end;

end.
